home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lantools / blueprnt / compare.bak < prev    next >
Text File  |  1990-11-07  |  1KB  |  49 lines
  1. package COMPAR_ARRAY is
  2.   type INT_ARRAY is array (integer range 1..5) of integer;
  3.   procedure COMPARE(X,Y: in INT_ARRAY; A:out boolean);
  4.   end;
  5.  
  6. package body COMPAR_ARRAY is
  7. procedure COMPARE(X,Y: in INT_ARRAY; A: out boolean) is
  8. I:integer;
  9. temp:boolean;
  10.  
  11.   begin
  12.     for I in X'FIRST..X'LAST loop
  13.           if X(I) = Y(I) THEN temp:= true;
  14.           else
  15.            temp:=false;
  16.            exit;
  17.           end if;
  18.     end loop;
  19.   end;
  20. end;
  21. --
  22. with COMPAR_ARRAY, text_io;
  23. procedure main is
  24.   use COMPAR_ARRAY,text_io;
  25.   I:integer;
  26.   A:boolean;
  27.  
  28. begin
  29.   declare
  30.     X,Y:INT_ARRAY;
  31.   begin
  32.   put ("Enter the 5 integers for array number 1:"); new_line;
  33.   for I in X'FIRST..X'LAST loop
  34.     get (Y(I));
  35.   end loop;
  36.   new_line; put ("Enter the 5 integers for array number 2:"); new_line;
  37.   for I in X'FIRST..X'LAST loop
  38.     get (X(I));
  39.   end loop;
  40.  
  41.   COMPARE(X,Y,A);
  42.   put ("Array number 1 is");
  43.   if A then put (" ");
  44.   else put (" not ");
  45.   end if;
  46.   put ("the same at array number 2."); newline;
  47.   end;
  48. end;
  49.